home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / JOpalIF.lha / opalreqlib.j < prev    next >
Text File  |  1993-01-01  |  724b  |  43 lines
  1. \ AMIGA JForth Include file.
  2. decimal
  3. EXISTS? OPAL_REQ_LIB_H NOT .IF
  4. : OPAL_REQ_LIB_H ;
  5.  
  6. EXISTS? EXEC_LIBRARIES_H NOT .IF
  7. include ji:exec/libraries.j
  8. .THEN
  9.  
  10. EXISTS? OPALLIB_H NOT .IF
  11. include ji:opal/opallib.j
  12. .THEN
  13.  
  14. :STRUCT OpalReq
  15.    ( %M JForth prefix )
  16.    USHORT   or_TopEdge
  17.    APTR     or_Hail
  18.    APTR     or_File
  19.    APTR     or_Dir
  20.    APTR     or_Extension
  21.    APTR     or_Window
  22.    APTR     or_OScrn
  23.    APTR     or_Pointer
  24.    SHORT    or_OKHit
  25.    SHORT    or_NeedRefresh
  26.    LONG     or_Flags
  27.    SHORT    or_BackPen
  28.    SHORT    or_PrimaryPen
  29.     SHORT    or_SecondaryPen
  30. ;STRUCT
  31.  
  32.  
  33. $ 1   constant NO_INFO
  34. $ 2   constant LASTPATH
  35.  
  36. 1   constant OR_ERR_OUTOFMEM
  37. 2   constant OR_ERR_INUSE
  38.  
  39. 345   constant OPALREQ_HEIGHT
  40.  
  41. .THEN
  42.  
  43.